Cream of the Crop 21/Cream of the Crop 21 (Terry Blount) (October 1996).iso/program/nwlib15.zip/DEMO.ZIP/MAIN.DFM/MAIN.txt

Text File | 1996-06-08 | 11KB | 548 lines

object winMain: TwinMain
  Left = 161
  Top = 156
  BorderStyle = bsSingle
  Caption = 'NWLib by Devont Software, Inc.'
  ClientHeight = 478
  ClientWidth = 704
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = [fsBold]
  PixelsPerInch = 120
  Position = poScreenCenter
  ShowHint = True
  OnShow = FormShow
  TextHeight = 16
  object Bevel1: TBevel
    Left = 116
    Top = 9
    Width = 164
    Height = 187
  end
  object Label1: TLabel
    Left = 0
    Top = 20
    Width = 107
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'User ID:'
  end
  object Label3: TLabel
    Left = 0
    Top = 50
    Width = 107
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Object ID:'
  end
  object Label4: TLabel
    Left = 5
    Top = 83
    Width = 102
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Full Name:'
  end
  object Label5: TLabel
    Left = 0
    Top = 112
    Width = 107
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Server Name:'
  end
  object userid: TLabel
    Left = 122
    Top = 20
    Width = 151
    Height = 20
    AutoSize = False
    Caption = 'userid'
    Font.Color = clHighlightText
    Font.Height = -16
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object objectid: TLabel
    Left = 122
    Top = 50
    Width = 151
    Height = 20
    AutoSize = False
    Caption = 'objectid'
    Font.Color = clHighlightText
    Font.Height = -16
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object netname: TLabel
    Left = 122
    Top = 80
    Width = 151
    Height = 20
    AutoSize = False
    Caption = 'netname'
    Font.Color = clHighlightText
    Font.Height = -16
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object server: TLabel
    Left = 122
    Top = 110
    Width = 151
    Height = 20
    AutoSize = False
    Caption = 'server'
    Font.Color = clHighlightText
    Font.Height = -16
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object label6: TLabel
    Left = 8
    Top = 143
    Width = 99
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Server Date:'
  end
  object serverdate: TLabel
    Left = 122
    Top = 140
    Width = 151
    Height = 20
    AutoSize = False
    Caption = 'serverdate'
    Font.Color = clHighlightText
    Font.Height = -16
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 0
    Top = 172
    Width = 108
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = '1st Net Drive:'
  end
  object netDrive: TLabel
    Left = 122
    Top = 170
    Width = 151
    Height = 20
    AutoSize = False
    Caption = 'netdrive'
    Font.Color = clHighlightText
    Font.Height = -16
    Font.Name = 'System'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 454
    Width = 704
    Height = 24
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 0
    object foot1: TLabel
      Left = 2
      Top = 2
      Width = 35
      Height = 20
      Align = alLeft
      Caption = 'foot1'
    end
    object foot2: TLabel
      Left = 667
      Top = 2
      Width = 35
      Height = 20
      Align = alRight
      Alignment = taRightJustify
      Caption = 'foot2'
    end
  end
  object everyone: TListBox
    Left = 290
    Top = 30
    Width = 106
    Height = 166
    Hint = 'Double Click (or Right-Click) on a User!'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    PopupMenu = everyonePopup
    Sorted = True
    TabOrder = 1
    OnDblClick = everyoneDblClick
  end
  object Header1: THeader
    Left = 289
    Top = 8
    Width = 108
    Height = 23
    Enabled = False
    Sections.Sections = (
      #0'83'#0'EVERYONE')
    TabOrder = 2
  end
  object groups: TListBox
    Left = 400
    Top = 30
    Width = 107
    Height = 166
    Hint = 'Double Click on a Group!'
    Font.Color = clBlack
    Font.Height = -15
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    Sorted = True
    TabOrder = 3
    OnDblClick = groupsDblClick
  end
  object Header2: THeader
    Left = 399
    Top = 8
    Width = 108
    Height = 23
    Enabled = False
    Sections.Sections = (
      #0'55'#0'Groups')
    TabOrder = 4
  end
  object Panel2: TPanel
    Left = 10
    Top = 236
    Width = 361
    Height = 205
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 5
    object username: TLabel
      Left = 10
      Top = 11
      Width = 341
      Height = 20
      Alignment = taCenter
      AutoSize = False
      Font.Color = clRed
      Font.Height = -17
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object loggedin: TLabel
      Left = 10
      Top = 31
      Width = 341
      Height = 20
      Alignment = taCenter
      AutoSize = False
      Font.Color = clRed
      Font.Height = -17
      Font.Name = 'System'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object bEnable: TButton
      Left = 12
      Top = 148
      Width = 137
      Height = 25
      Hint = 'Enable Logins on Current Server'
      Caption = '&Enable Login'
      Enabled = False
      TabOrder = 0
      OnClick = bEnableClick
    end
    object bDisable: TButton
      Left = 12
      Top = 173
      Width = 137
      Height = 25
      Hint = 'Disable Logins on Current Server'
      Caption = '&Disable Login'
      TabOrder = 1
      OnClick = bDisableClick
    end
    object bLogout: TButton
      Left = 275
      Top = 148
      Width = 75
      Height = 25
      Hint = 'Jane!! Stop this Crazy Thing!'
      Caption = '&Logout'
      TabOrder = 2
      OnClick = bLogoutClick
    end
    object bExit: TButton
      Left = 275
      Top = 173
      Width = 75
      Height = 25
      Hint = 'Take your shoes off & set a spell.'
      Caption = 'E&xit'
      TabOrder = 3
      OnClick = bExitClick
    end
    object isManager: TCheckBox
      Left = 25
      Top = 114
      Width = 95
      Height = 21
      Caption = 'Manager'
      Enabled = False
      TabOrder = 4
    end
    object isSuper: TCheckBox
      Left = 200
      Top = 90
      Width = 148
      Height = 21
      Caption = 'Supervisor'
      Enabled = False
      TabOrder = 5
    end
    object isConsole: TCheckBox
      Left = 25
      Top = 90
      Width = 119
      Height = 21
      Caption = 'Console Opr'
      Enabled = False
      TabOrder = 6
    end
    object canLogin: TCheckBox
      Left = 200
      Top = 114
      Width = 148
      Height = 21
      Caption = 'Logins Enabled'
      Enabled = False
      TabOrder = 7
    end
  end
  object Panel3: TPanel
    Left = 384
    Top = 236
    Width = 313
    Height = 205
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 6
    object serverlist: TListBox
      Left = 10
      Top = 10
      Width = 221
      Height = 141
      Hint = 'Double Click on a Server!'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      Sorted = True
      TabOrder = 0
      OnDblClick = serverlistDblClick
    end
    object servertext: TEdit
      Left = 10
      Top = 160
      Width = 221
      Height = 24
      TabOrder = 1
    end
    object volumes: TListBox
      Left = 240
      Top = 10
      Width = 61
      Height = 181
      Hint = 'Network Volume Listing'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      Sorted = True
      TabOrder = 2
    end
  end
  object mapList: TListBox
    Left = 511
    Top = 30
    Wid